COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE FREQ
C00004 ENDMK
C⊗;
	TITLE FREQ

A←1
CH←2
I←3
J←4
P←17

CR←15  LF←12  TAB←11

PDLEN←30

PDLIST:	BLOCK	PDLEN
COUNT:	BLOCK	200
IBUF:	BLOCK	3
OBUF:	BLOCK	3

FREQ:	MOVE	P,[IOWD PDLEN,PDLIST]
	SETZM	COUNT
	MOVE	A,[COUNT,,COUNT+1]
	BLT	A,COUNT+177
	INIT
	SIXBIT	/DSK/
	IBUF
	HALT
	INBUF	2
NXCHIN:	SOSG	IBUF+2
	IN
	JRST	[ILDB CH,IBUF+1
		 AOS  COUNT(CH)
		 JRST NXCHIN]
	STATO	20000
	HALT	.
	RELEAS
	INIT	1,
	SIXBIT	/DSK/
	OBUF,,
	HALT
	OUTBUF	1,2
	MOVEI	CH,"0"
	MOVEM	CH,CHAR#
NXDG:	MOVE	I,COUNT(CH)
	PUSHJ	P,PUT
	AOS	CH,CHAR
	CAIG	CH,"9"
	JRST	NXDG
	MOVEI	CH,"A"
	MOVEM	CH,CHAR
NXCH:	MOVE	I,COUNT(CH)
	ADD	I,COUNT+40(CH)
	PUSHJ	P,PUT
	AOS	CH,CHAR
	CAIG	CH,"Z"
	JRST	NXCH
	CALLI	12

PUT:	PUSHJ	P,PUTCH
	MOVEI	CH,TAB
	PUSHJ	P,PUTCH
	PUSHJ	P,NXTDG
	MOVEI	CH,CR
	PUSHJ	P,PUTCH
	MOVEI	CH,LF
	JRST	PUTCH

NXTDG:	IDIVI	I,=10
	PUSH	P,J
	SKIPE	I
	PUSHJ	P,NXTDG
	POP	P,CH
	ADDI	CH,60
	JRST	PUTCH

PUTCH:	SOSG	OBUF+2
	OUTPUT	1,
	IDPB	CH,OBUF+1
	POPJ	P,

	END	FREQ